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DESCRIPTION 
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A major advantage of the Cluster/One Model A is that the 
Apple computers on the network can share expensive resources 
such as a printer and at the same time retain their full 
power as independent computers. The Pascal Frinter Spooler 
package allows an Apple computer station to act as æ 
printer-server, queueing the names, locations, and print 
options of Pascal files to be printed, then printing each 
file in the order in which the requests are received. Users 
at Pascal-capable user-stations can name files they wish 
printed, request information about running the spooler, or 
request a listing of the queue of files waiting to be 
printed. Users may specify print options for page titles, 
form-feed insertion, and the number of copies. 
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The Printer Spooler package consists of text end code files 
for three programs: (1) the printer spooler, which runs on 4 
dedicated printer-server Apple; (2) the print request 
program, which cen be executed from any Pascal user-station; 
and (3) an initialization program which creates ard 
initializes two files, PRINTQ and STATUSQ, which contair the 
list of files to be printed. 


The Print Request program resides on the virtual diskette 
Called /MAIN/PASCAL/LIB which is automatically mounted on 
drive 5 whenever a Pascal-type virtual diskette is booted. 
It is executed at the Pascal command level by typing X 
Pascal:print (or X. #5:print). 


All other elements of the Print Spooler package reside on a 


virtual diskette called /MAIN/USERS/FRINTER. Its Pescal 
volume name is PRINTQ. 


8/22/88 1 


PRINT 


The text and code files on /MAIN/USERS/FRINTER are called: 


PRINTQ: FRINT.SPLR.TEXT 
PRINTQ:FRINT.SPLR.CODE 
PRINTQ: FRINT.RQST.TEXT 
PRINTQ: PRINT. INIT.TEXT 
PRINTQ: PRINT.INIT.CODE 


After PRINTQ:PRINT.INIT.CODE has been run to create the 
PRINTQ:PRINTQ and PRINTQ :STATUSQ files, the neme of 


PRINTQ:PRINT.SPLR.CODE should be changed to 
PRINTQ:SYSTEM.STARTUP so that it will be executed 
automatically when /MAIN/USERS/PRINTER is booted. The 


spooler will not run properly until the PRINTQ and STATUSQ 
files are created. 


When created, the two files, PRINTQ and STATUSQ, must reside 
on /MAIN/USERS/PRINTER. They contain informetion on the 


last 152 print requests. FRINTQ is 19 blocks long and 
contains the pathname, fileneme and print options for each 
print request. STATUSQ is ore block long and contains the 
status of each request: 

WAITING 

PRINTING 

FINISHED 


FILE NOT FOUND 
DISK NOT FOUND 
CRASHED 
ABORTED 


Entry © of STATUSQ points to the next entry to be processed. 
Locks, also called PRINTQ and STATUSQ, ere set for exclusive 
use so that only one user at a time can update the files. 
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The spooler program included in this package is krown to 
operate with either a TTY-48 or a Qume printer. Eoth these 
printers require ar Apple serial interface card in expension 
Slot 1. The TTY-4@ printer requires thet the switches on 
the serial card be set: 


1 ON 
S OFF 
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The Qume printer requires that the switches be set: 


1 OFF 
3 ON 


Follow the instructions given with the serial interface card 
and the particular printer to connect the printer-server 
Apple to the printer. 


For other makes of printers, it may be necessary to also 
Change the hardware-dependent code in the spooler program. 
This section of the code is listed here to facilitate 
modification. 


PROCEDURE PRINTCHAR (S:CHAR); 


TIPE 
BYTE = PACKED ARRAY[2@..@] OF CHAR; 
TRIX = PACKED RECORD CASE INTEGER OF 
Ø: (ADR: INTEGER); 
Li A PTR TEYTZ) 
END; 
VAR I: 
TRIX; 
BEGIN 


I.ADR:=-16240; (* WHICH IS $C@9@, SERIAL CARD INPUT *) 
WHILE ORD (I.FTRt(Q]) > 127 DO ; 
(* WAIT UNTIL PRINTER READY *) 
UNITWRITE(6,5S,1) 
END; {PRINTCHAR} 


OPERATING INSTRUCTIONS 


NOTE: Either upper or lower case characters may be used in 

responding to prompts from printer programs. They are 

equivelent. i 

Initialization 

1. Boot /MAIN/USERS/PRINTER 

2. At Fascal command level, X(ecute: 
PRINTQ:FRINT.INIT 

5S. Program will display: 
Available virtual drive: 


4. Respond with 4 followed by <return>. 
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5. At end of program, control returns to the Fascal commana 
level. 


6. Enter filer by typing F. 
7. Change name of spooler program by typirg 


C PRINTQ:PRINT.SPLR.COLE,SYSTEM.STARTUP 
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1. Insert Apple serial interface card ir expansion slot 
of printer-server Apple. 


2. Boot /MAIN/USERS/PRINTER at printer-server. 
3. The program will display: 
NETWORK PRINTER SFOOLER-- 


MOUNTS /MAĄIN/USERS/PRINTER ON D4 
TYPING “A” ABORTS CURRENT LISTING 
Q” QUITS TEE SPOOLER 
“C” MAKES IT WAKE UP 


READY. . ‘ 


Then as each file is printed, its name and the pathname 
of the virtual diskette on which it is located are 
displayed on the printer-server’s screen. When a 
request has been processed, its status (such as FINISHED 
or FILE NOT FOUND) is displayed on the following line. 
The screen scrolls as new files are addec. 


The spooler examines the STATUSQ file approximately 
every <8 seconds to see whether there is a request 
waiting. Typing C at the printer-server causes the 
spooler to examine the queue immediately. 


If the printer-server, disk, or file-server stops 
operating while a file is being printed, the status of 
thet print-request is CRASHED, and the request must be 
re-entered. If this occurs, the printer-server when it 
resumes operation, will display the messege: 


CRASHED WHILE FRINTING LAST FILE 
Print Request Program 
NOTE: The virtual diskette containing the file to be printed 


must be either unmounted or mounted for shared use. The 
virtual diskette must have R (read) as one cf its public 
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access rights; (this is a default if no FUFACC is specified 
when the virtuel diskette is created). 


1. 


2. 


10. 
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Boot a Pescal-type virtual diskette. 
At Pascal commend line, X(ecute: 

PASCAL: PRINT 
Program will display: 

Network Print Program- 

Available Virtual Drive: 
Respond 4, 5, 9, 10, 11, or 12 followed by <return>. 
NOTE: You shouldn’t use drive 4 (which contairs the 
booted virtual diskette) or drive 5 (which contains 
/MAIN/PASCAL/LIB) because then you will lese the system. 
Drives 9, 18, 11 and 12 can be used if they are virtuel. 
Drives 9 and 18 are virtual if there is no disk control 
card in slot 4, or if the Cluster command SET D9,V has 
been issued. Similarly, drives 11 and 12 ere virtual if 
there is no disk control card in slot 5, or if the 
Cluster command SET D11,V has been issued. 
Program will display: 

List, Print, Eelpy or Quit (l1/p/h/q‘? 
If you type p, the program displeys: 

Volume Name: 
Type full name of virtual diskette conteining file to be 


printed--e.g. /majin/users/nss/2. PRINT does not know 
about the default directory specified by SET DIR. 


- Program will display: 


Pascal File Name: 


Type name of file. It is not necessary to include the 
suffix .text . 


Program will display: 
Options (cr/y/n }? 


11. 


12. 


14. 


15. 


16. 


17. 


18. 


19. 
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Type y if you want rew options, n if you want no 
options, and «returni» if you want the same options you 
previously requested. 


If you respond y, the program displays each option: 


page titles and formfeed insertion (y/n)? 
formfeed insertion only (y/n)? 
number of copies=1 (cr/numbder)? 


Respond y or n to the first 2 questions. If the desired 
number of copies is displayed, press <return>;s if not, 
enter the number you cesire followed by <return>. 


Program will then ask: 
Is this correct (y/n/esc)? 


Type y to print. Type n to cycle through the print 
parameters you gave so that you can press <return> for 
the parts that are correct and change the parts in 
error. Press <esc> to return to the iL(ist, F(rint, 
H(elp or Q(uit option without printing. 


If you type L at step 5 to Liist the print queue, the 
program will display: 


Number of completed entries: 12 (cr/new response)? 


To list 10 completed entries, press <return>. To list n 
entries, type n <return>. 


The program will list, for each of the last n requests, 
its pathname, filename, and status. 


If you type H at step 5 to request E(elp. the program 
will display: 


PRINT allows a user to list the prirt queue or to 
print out a Pascal file on a virtuel network disk. 
PRINT asks for an available virtual drive that it 
can use for mounting tne network disk 
“/MAIN/USERS /PRINTER’. 


The user is expected to leave the disk containing 
the file to be printed unmounted or mounted on a 
shared basis. The printer output will reflect the 
state of the file at the time it is printed, not 
at the time the print command is issued. 
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20. If you type Q at step 5 to Q(uvit, control will return 
to the Pascal commend level. 
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